load ./libgeoconstraint.so.0.0.0
package require GeoConstraint
if ![catch {geoCreate geo } error ] {exit }
if ![catch {geoCreate geo Tor} error ] { exit }
puts [geoCreate geo ToroidalPore 10 10 27]
puts [setGeoRange geo -40.0 40.0 -40.0 40.0 -40.0 40.0]
puts [genGeoConstraint geo Gaussian 5.0 0.50 0.0 160]
puts [saveGeoConstraint geo cons.dx]
puts [getGeoConstraint geo 20.0 5.0 40.0 v]
puts [getGeoConstraint geo 20.0 5.0 18.5 v]
puts [getGeoConstraint geo 20.0 5.0 0.0 v]
puts [getGeoConstraint geo 0.0 5.0 0.0 v]
puts [getGeoConstraint geo 0.0 0.0 0.0 v]
puts [getGeoConstraint geo 0.0 0.0 13.5 v]


